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IDENTIFICATION DIVISION. 
ENVIRONMENT DIVISION . 
DATA DIVISION. 
WORKING-STORAGE SECTION. 

77 FILLER PiC X(1G) VALUE '*« BEGIN WS . 

» IMS DECLARATIONS 

«*»»#«»**«»**«»«#**##»**»*»*»**#**)(«»»»»***«*«»**«*»«»»**»#**»»»#**#* 

77 DEF-MOD PIC X(B) VALUE 'DFSMOl '. 

77 GU-FUNC PIC X(4) VALUE 'GU '. 

77 GN-FUNC PIC X(4) VALUE 'GN '. 

77 ISRT-FUNC PIC X (41 VALUE 'ISRT'. 

77 ROLL-FUNC PIC X(4) VALUE 'ROLL'. 

77 DISPLAY-LL PIC 9(5). 

77 DISPLAY-ZZ PIC 9(5) . 

« begin IMS COBOL input message definition 
01 INPUT-MESSAGE. 

02 IN-LL PIC S9(4) COMP. 

02 IN-ZZ PIC S9(4) COMP. 

02 IN-TRANCODE PIC X(B). 
02 IN-DATA. 

03 0P1 PIC 9(4) DISPLAY. 

03 0P2 PIC 9(4) DISPLAY. 

03 FILLER PIC XI32GB7). 

* end IMS COBOL input message definition 

* begin IMS COBOL. output message definition 
01 OUTPUT-MESSAGE. 

02 OUT-LL PIC S9(4) COMP VALUE +8. 

02 OUT-ZZ PIC S9(4) COMP VALUE +0. 

02 RESULT 1 PIC 9(4) DISPLAY. 

* end IMS COBOL output message definition 
01 DLI-MSG. 

02 DLIMSG-1 PIC X(1B) VALUE 'ERROR ON DLI CALL '. 

02 DLIMSG-CALL PICX(IO). 

02 DLIMSG-2 PIC X(18) VALUE '. STATUS CODE WAS '. 

02 DLIMSG-STAT PICX(2). 

02 DLIMSG-3 PIC X(22) VALUE ' 

LINKAGE SECTION. 
01 IOPCB. 

02 IO-LTERM PIC X(8) . 

02 IO-RESV PIC X(2I . 

02 IO-STATUS PICX(2). 
02 IO-DATE. PICXXXX. 
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02 IO-TIME 
02 I0-SEQN0 
02 I0-N0DN 



PIC XXXX. 
PIC XXXX. 
PIC XI8) . 



02 IO-USERID PICXI8). 
02 IO-GROUPID PICXI8). 



PROCEDURE DIVISION. 

ENTRY 'DLITCBL' USING IOPCB . 

PERFORM GET-IMS-MSG UNTIL IIO-STATUS = 'QO . 

GOBACK. 



* GET IMS MESSAGES FROM INPUT QUEUE AND PROCESS 



CALL ' CBLTDLI ' USING GU-FUNC, IOPCB. 



EVALUATE IO-STATUS 

WHEN ' ' 
COMPUTE RESULT1 - OP1 ♦ 0P2 
DISPLAY 'OPERAND 1: ' OP1 
DISPLAY 'OPERAND 2: 1 OP2 
DISPLAY 'RESULT 1: ' RESULT1 
PERFORM ISRT-MESSAGE 

WHEN 'QC 
DISPLAY 'QC STATUS CODE RETURNED '. 

WHEN NOT 'QC 
MOVE 'GUsMSGQ' TO DLIMSG-CALL 
MOVE IO-STATUS TO DLIMSG-STAT 
PERFORM D-RETURN-CODE 
END-EVALUATE. 



*»»«*»»*«»»»**«*«)(X»»*«»«»**»»X»«»»»*»X»»X#XX»«*»*»«*X*»»X»»»»X» 



* ERROR ROUTINE TO CATER FOR UNEXPECTED DL1 STATUS CODES 



XXXXXXXXKXXXXKXXXXXXXX«XXX*X*XXXXXXXXXKXXXXXXXXX«XXXXXXXXKX«X»XX 



D-RETURN-CODE. 

DISPLAY DLI-MSG. 
MOVE 0 TO RESULT1. 
PERFORM ISRT-MESSAGE. 
GOBACK. 



XX«XXXXXX«XXXKXXXXXXXXXXXX*«tXXXXXXXXXXXXXXXXXXXXXXXXXXXXKX«XXXX 



» ROUTINE TO INSERT A MESSAGE TO THE TERMINAL 



XXXXXXXXXXXXXKXXXKXXXXXXKXtXtXXXXKXXXXXXXXXXXXXXXXXXXXXXXKXXXXXX 



GET-IMS-MSG. 
MOVE SPACES 
MOVE SPACES 



TO IN-DATA. 

TO INPUT-MESSAGE. 



INPUT-MESSAGE. 
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ISRT-MESSAGE. 

IF IO-HODN - 'MQIMSVS' 
« MOVE 'MQIMSVS' TO DEF-HOD 

MOVE 'T0O40O2' TO DEF-HOD 

ELSE 

* MOVE 'DFSMOi' TO DEF-HOD. 

MOVE 'T004002' TO DEF-HOD. 

MOVE 'TO040O2' TO IO-MODN. 

DISPLAY "DEF-MOD: ' DEF-MOD. 
DISPLAY 'IO-MODN: ' IO-MODN. 
CALL ' CBLTDLI ' USING ISRT-FUNC, IOPCB. 

OUTPUT-MESSAGE. DEF-MOD. 
IF IO-STATUS NOT = SPACES 

MOVE 'ISRT#M' TO DLIMSG-CALL 
MOVE IO-STATUS TO DLIMSG-STAT 
DISPLAY DLI-MSG 

CALL 'CBLTDLI' USING ROLL- FUNC, IOPCB. 
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HYCLASS .HPP 
#ifndef _MYCLASS_HPP_ 
•define _MYCLASS_HPP_ 
II 

II FILE NAME: myclass.hpp 



#include 
#include 
•include 
^include 
•include 

# include 
•include 

•include 

# include 
•include 
•include 
•include 
•include 
•include 
•include 
•include 
•include 
•include 



<idaif .hpp> 

<idaifs.hpp> 

<idabndg.hpp> 

<idach.npp> 

<idamw.hpp> 

<idauuid.hpp> 

<idaexc.hpp> 

<ibag.h> 

<idaifb.hpp> 

<ixdims.hpp> 

<ixdimstr,hpp> 

<ixdinisac.hpp> 

<ixdimsca.hpp> 

<ixdimsco.hpp> 

<ixdirasns.hpp> 

<ixdiiDspo.hpp> 

<ixdi(DSpf.hpp> 

'rayclass. imc 



class myclass : 



public IStandardNotifier, 
public IXDMQIHSCo nversat ion . 
public IDAInterfaceBase, 
public virtual myclassDef inition 



public: 



myclass 0 



{ 

// Tell object to use IMS stubs 
try { 

this->getInterfaceStub (IXDHOIHS -instanced) , 

catch ( IDANoI nterf aceSt ubExcept i o nS ex) { 

this->addInterfaceStub («(new ims.rayclass.cstub) . 
IXDHQIHS:: instanced); 
) 

// Set up HOI persistence attributes 
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this->addAttributes (SIXDHQIHSPersistenceOff: : instanced ) ; 
this->addAttributes (addFv.nameO , SIXDMQIMSPersistenceOff : : instance!) ) ; 

pimsco. = new IXDHQIHSConvAt tr ( ( IXDHQIMSConversat i o n ») this); 
this->addAttributes( pimsco. ) : 

pimsac. = new IXDHQIMSAccess ( (char «) getNameO ) ; 
this->addAttributes(pimsac.) ; 
IXDMQIMSTransaction ttrans; 

trans = new IXDMQIMSTransaction! "TCLI0040", 

'i\ 

(char *) getNameO , 
'C 

0x20 

■ ■ 

;i 

,0 

0x20 

■ ■ 

1 
0 

)l 

imstatts_.add( (void «) trans ); 
this->addAttributes (addFv.nameO. trans); 

imsns. = new IXDMQIHSNameServicelSIXDMQIMS: : instanced , getPrimaryldO , 

getSecondaryldO , (char ») get Name ()) i 

IXDMQIMS: : instance 0 .addNameService (imsns.) ; 

// Import from correct place 
this->importBindings(IXI)hQIHS: : instance 0 ) ; 

-myclassl) { 

if (NULL != pimsco.) 

delete pimsco.; 
if (NULL I- pimsac.) 

delete pimsac.; 

IXDMQIMSTransaction »tr ; 
while ( ! imstatts.. isEmpty 0 ) { 

tr = (IXDMQIMSTransaction i) imstatts_.anyElement() ; 

imstatts.. remove ( tr ) ; 

delete tr ; 

} 

IXDMQIMS: : instanced .removeNameService (imsns.) ; 
delete imsns.; 
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virtual void add ( myclass.add.I* input Msg, myclass.add.O* outputHsg ) 

IDABinding* binding; 

if (blist. numberOfElementsU « 0) 
((my class ») this) ->blist = 

( (myclass *) this) ->importBindings ( ) ; 

IBag<IDABinding *>:: Cursor current (blist) ; 

current. setToFirstO : 

if (! current. isValid(l) { 

^ throw IDANoBindingException(*(myclass *) this) ; 

binding = blist .elementAt (current) ; 

IDACal lHandle ch ■ binding->mw() ->createCallHandle 0 : 
ch.setU (myclass *) this) ->getPrimaryId() , 

( (myclass ») this) ->getSecondaryId() , 

addFv.nameO, binding); 

( (myclass *) this) ->setAttributes(ch) : 
ch.genRequestO ; 
try { 

((ims.rayclass.cstub *) ((myclass 
») this) ->getlnt erf aceStub(*binding->fnw()))->add(ch, input Msg. outputHsg) ; 
ch.genConfirmO; 
} catch (IExceptionS ex) { 
ch.genConfirmO; 
throw (ex)'; 

} 

} 

private: 

IXDMQIMSNameService »imsns_; 
IXDHQIHSConvAttr «pimsco. : 
IXDHQINSAccess «pimsac_; 
IBag<void »> imstatts.; 



*endif 

MYCLASS .IMC 
#ifndef _MYCLASS_IMC 
#define _MYCLASS_IMC_ 

II 

II FILE NAME: myclass. imc 
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II 

#include <ixdimsex.hpp> 
#include <idacicch.hpp> 
#include <ixdimsch. hpp> 

#include "oiyclass.hpd" 

class ifDS.myclass.cstub : 

public IDAInterfaceStub, 
public myclass.stub { 

public: 

static ims.myclass.cstubS instanced 

if (instance. « NULL) 

instance. = new ims.myclass.cstub; 
return (*instance_) ; 

) 

void add (IDACallHandleS ch, myclass.add.I* inputMsg , myclass.add.O* 
outp^utMsgl 

ch. start!) 

ch « (myclass.add.IS) UinputMsg) : 
ch.transceivel) : 

ch » (myclass.add.OS) UoutputMsg) ; 
outputMsg->notify() ; 
ch.doneO; 

} 

private : 

static ims.myclass.cstub* instance.; 



ims.myclass.cstub* ims.myclass.cstub: instance. = NULL; 
#endif 

MYCLASS.HPD 

#ifndef .MYCLASS.HPD. 

#define .MYCLASS.HPD. 

// Class: myclass 
// 

// FILE NAME: myclass.hpd 
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«i nclude <istring.hpp> 
•include <idauuid.hpp> 
#i nclude <idaifd.hpp> 
finclude <idach.hpp> 

«include "royclass. imd" 



class myclassDef inition : public virtual IDAInterf aceDef inition 

public: 

myclassDef initionO 

setSecondaryld (IDAUuid: : nil . toStringO ) : 
setName Cuiyclass") i 



IDAUuid getPrimaryldO { 

return IDAUuid ( " iB5c9ec5-2aid-02f 0-8000-4000 1152B584 " ) , 

} 

IString addPv.naoieO const { 

return IStringl " void myclass: :add( myclass_add_I* input Msg, 
myclass.add.O* outputHsg )"); 



private: 
) , 

class myclass. stub : public virtual myclassDef inition 
public: 

virtual void add I IDACa 11 HandleS ch, myclass_add_I« inputHsg, 
myclass.add.O* outputHsg) = 0 S 



*endif 

MYCLASS .IMD 
#ifndef _MYCLASS_IMD_ 
#define .MYCLASS.IMD. 

II 

II FILENAME: myclass. imd 

II 

•include <istdntfy.hpp> 
#i nclude <istring.hpp> 
•include <idach.npp> 
•include <idacicch.hpp> 
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#include <inotifev.hpp> 
#include <istdntfy.hpp> 
#include <istring.hpp> 
sinclude <ivseq.n> 
tinclude <ixdimsex.hpp> 
#include <ixdimstg.hpp> 

class myclass_add_Lpagel_args { 
public: 

MYclass.add.Lpage Largs 0 { 

opl_ = 0; 

op2. = 0i 
opl.flag. » Oi 
op2_flag_ = Oi 



unsigned short int opl. ; 
IBoolean opl.flag.; 
unsigned short int op2_s 
IBoolean op2_f lag_ s 



inline IDACallHandleS operator« (IDACallHandleS ch. const 
myclass_add_Lpagel_argsS d) 

ch.offsetLLO, 

ch «.IDACICSCallHandleInternal::PIC(ch. "9(41 

ch « IDACICSCallHandleInternal::AUG(ch, "DISPLAY.NUMERIC") , 

ch « (unsigned short int S)d.opl. ; 

ch « IDACICSCallHandleInternal::PIC(ch. "914) •) , 

ch « IDACICSCallHandleInternal::AUG(ch, 'DISPLAY.NUMERIC') , 

ch « (unsigned short int S)d.op2. ; 

ch.setLLO, 

return ch : 



class myclass.add.Lpagel : public IStandardNotifier { 
public: 

myclass.add.LpageK) 

} 

-myclass.add.LpageK) 
) 

myclass.add.LpagelS operator* (const myclass.add.Lpagelfi aLpagel.) 
setopl(aLpagel_.oplO) ■, 
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setop2(aLpagel_.Op2())s 
return *tniss 

} 

myclass_add_Lpagel(const myc lass_add_Lpage IS aLpagelJ 

setopl(aLpageL.oplO) ; 
^ setop2(aLpagel..op20); 

void notify!) 
{ 

if (args_.opl.flag.) not ifyObser vers (INotificationEventlsetoplId, 
•this)) i 

if (args..op2.flag.) not ifyObser vers ( INot i f i cat i onEvent (setop2Id . 
+this)) : 
} 

unsigned short int opi 0 const 
return (args_.opl_) : 



static .Notification^ set op lid; 

myclass.add.LpagelS setopl (const unsigned short int. aopl) 

args_.opl. = aopl: 

notifyObservers (INot if icationEvent (setoplld, «this) ) ; 
return »this : 



unsigned short int op2 0 const 
return (args_.op2_) ; 



static INot if icationld setop2Id; 

myclass.add.LpagelS setop2 (const unsigned short intS aop2) 

args_.op2. = aop2 ; 

notifyObservers (INot if icationEvent (setop2Id, »this)) ; 
return »this : 



inline IDACallHandleS operator« (IDACal lHandleS ch. const myclass.add.LpagelS 




myclass_add.Lpagel.args args_ ; 



d) 
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ch « (aiyclass_add_Lpagel_args S)d.args. ; 

return ch : 

} 

class myclass.add.I : public IStandardNotifier { 
public: 

myclass.add.I 0 
{ 

Lpage 1_ . addAsF i rs t ( new myclass.add.Lpagel) ; 
Lpagel_flag_ = 0; 

jmyclass_add.il) 

while! ILpageL.isEmptyO) { 
myclass.add.Lpaoel* anElement = Lpage 1.. f irs tElement 0 ; 
Lpage L.retnoveFirstO ; 
delete anElement; 

} 

> 

myclass.add.IS operator* (const myclass.add.IS ainputHsg) 

while (ILpageL.isEmptyO) { 
myclass.add.Lpagel* anElement = LpageL.firstElementO : 
Lpage i_.removeFirst() •, 
delete anElement; 

} 

I VSeque nce<my c 1 ass.a dd. L pag e 1»> :: Cursor cursor (ainputMsg. Lpage 1.) 
forCursor (cursor) 

Lpage l_.addAsLast (new myclass.add.LpagelUcursor. element 0) ) i 
notifyObservers (INotificationEventlLpagel.Id, . »this) ) ; 
Lpagel_f lag_ = ainputMsg. Lpagel_flag_ ; 
return *this : 



myclass.add.I (const myclass.add.IS ainputMsg) 

IVSeque nce<myc 1 ass.add.Lpage 1»> : :Cursor cursor (ainputMsg. Lpage 1.) ; 
forCursor (cursor) 

Lpage L.addAsLast (new myclass.add.LpagelUcursor. element ())) 
notifyObservers (INotificationEventlLpagel.Id, *this) ) ; 
Lpage 1. flag. = ainputMsg Lpagel.f lag. : 



void notifyO 

if (LpageLflag.) { 
notifyObservers (INotif icationEvent (Lpagel.seqld. *this)) ; 
notifyObservers (INotificationEventlLpagel.Id, *this)) ; 
notifyObservers (INotif icationEvent (setopild. «this)) ; 
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not ifyObser vers (INotif icatior£vent (setop2Id . *this)) ; 

} 

IVSequence<myclass_add_Lpagel»> Lpagel_seq() { 
return (LpagelJ ; 

} 

static INotif icationld Lpagel_seqld ; 
myclass.add.I & setLpagel.seq( IVSequence<myclass_add_Lpagel»> « 
a LpagelJ { 

while! I Lpagel.. isEmptyO) { 
rayclass_add_Lpagei» anElement = Lpagel.. f irstElement 0 ; 
Lpagel_.removeFirst() 5 
delete anElement; 

} 

IVSequence<siyclass_add_Lpagei*>:: Cursor cursor UaLpagelJ s 
forCursor (cursor) 

Lpagel_ .addAsLast (new myclass.add.Lpagel («cursor . element 0 ) ) : 
notifyObservers (INotificationEventdpageLseqld, »this)h 
return *thiSi 

} 

myclass.add.Lpagel LpageL.O { 
return (* (Lpagel_.f irstElement () ) ) ; 

} 

static INotif icationld Lpagel.Id; 

myclass.add.I fi setLpagel ( myclass.add.Lpagel* aLpagel.) { 

while(!Lpagel_.istmpty()) { 

myclass.add.Lpagel* anElement = LpageL.firstEleraentO; 

Lpagel. .reraoveFirstO ; 

delete anElement; 

} 

Lpagel.. add (new myclass.add.LpagelUaLpagel.) ) ; 
notifyObservers (INotif icationEvent (Lpagei_Id. *this> ) : 
return *this : 

} 

unsigned short int opl ( ) const 

^ return ( Lpagel_.firstElement()->oplO) r 

static INotif icationld set op lid) 
myclass.add.I & setopl ( const unsigned short intS aopl 

{ 

Lpagel.. f irstElement 0 ->setopl(aopl) 

notifyObservers (INotif icationEvent (setoplld. *this)) ; 

return «this : 

} 

unsigned short int op2 ( ) const 
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return I Lpagel_.firstElement() ->op2() ) •. 

static INotif icationld setop2Id; 
^ myclass.add.I S setop2 ( const unsigned short int& aop2 

{ Lpaoel_.firstElement()->setop2(aop2) 
not lfyObser vers (INotificationEvent(setop2Id, »this)) ; 
return *this ; 

} 

IVSequence<myclass_add_Lpagel»> Lpagel_ s . 
IBoolean Lpagel_f lag_ s 

inline IDACal lHandleS operator« (IDACal lHandleS ch, myclass.add.IS d) 

IVSequence<niyclass_add_Lpagel *>:: Cursor cursor I d. Lpage 1.) •, 
forCursor (cursor) { 

ch « d . Lpage 1_ . e leme ntA t ( cursor I ; 
^ d.LpageLflag. = 1; 

ch.setPageBitO; 

ch . stripNul lSegments 0 ; 

return Chi 

} 

class myclass_add_lpage2_result { 
public: 

myclass_add_Lpage2_result() { 

result 1_ = 0; 
resultl_flag_ = 0: 



unsigned short int resultl.; 
IBoolean resul tl_f lag_ ; 



inline IDACal lHandleS operator» (IDACallHandleS ch, 
myclass_add_Lpage2_resultfi d) 

if (ch.notNullsegmentO SS ch.stripLLO) { 
ch » IDACICSCallHandleInternal::PIC(ch. "9(4) 
ch » IDACICSCallHandlelnternal: :AU6(ch. "DISPLAY.NUHERIC") : 
ch » (unsigned short int &)d. result i •, 
if (ch.fieldlsSetO) d. resul tl.f lag. = 1, 



CA9199B0001US1 



18/23 



FIG. 6 J 

> 

return chi 

} 

class myclass_add_Lpage2 : public IStandardNotifier { 
public: 

myc lass. add. Lpage2() 

} 

*myclass_add_Lpage2() 
} 

myclass_add_Lpage2S operator* (const myc lass. add. Lpage2S aLpage2_) 

setresultl(aLpage2_.resultH)) i 
return «this: 

} 

myc lass_add_Lpage2 (const rayclass_add_Lpage2S aLpage2_) 
setresultl(aLpage2_.resulti()) ; 



void notify 0 

if (result-. resultl-f lag-J 
notifyObservers (INotif icationEvent (setresultlld, *this)): 



unsigned short int resultl 0 const 
{ 

return (result.. resultl.) i 

) 

static INotif icationld setresultlld; 

myc lass. add _Lpage2S set resultl (const unsigned short intS aresultl) 
result.. resultl. = aresultl: 

notifyObservers (INotif icationEvent (setresultlld. *this) ) : 
return *ihis : 

} 

myc 1 ass.add.Lpage2.resu 1 1 resu 1 1. 
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inline IDACallHandleS operator» (IDACal lHandleS ch, myclass_add_Lpage2S d) 

ch » (inyclass_add_Lpage2_result S) d.result.i 
return ch: 



class myclass.add.o : public IStandardNotifier < 
public: 

myclass.add.o I) 

Lpage2_ . addAsFirst ( new myclass_add_Lpage2) i 
^ Lpage2.flag.= Oi 

Miiyclass.add.OO 
{ 

whi le ( I Lpage2_ . isEmpty {) ) { 
myclass_add_Lpage2« anElement = Lpage2_.firstElement() , 
Lpage2_.removeFirst() j 
delete anElement; 

} 

} 

myclass.add.OS operator (const myclass.add.OS aoutputMsg) 

whi le{ ! Lpage2_ . isEmpty 0 ) { 
myclass.add.LpageZ* anElement = Lpage2_ . f irstElement () : 
Lpage2_.removeFirst() : 
delete anElement; 

} 

IVSequence<myclass_add_Lpage2*>: : Cursor cursor I aoutputMsg. Lpage2.) ; 
for Cursor! cursor) 

Lpage2. . addAsLast ( new myclass.add.Lpage2(«cursor. element ())) ; 
notifyObservers (INotif icationEvent (Lpage2_Id. *this) > : 
Lpage2_f lag. = aoutputMsg. Lpage2_f lag. i 
return *this : 

) 

myclass.add.o (const myclass.add.OS aoutputMsg) 

IVSequence<myclass_add_Lpage2«>: : Cursor cursor I aoutputMsg. Lpage2.) i 
forCursor( cursor) 

Lpage2_. addAsLast (new myclass_add_Lpage2(»cursor. element ())) i 
notifyObservers (INotif icationEvent (Lpage2.Id. *this) ) : 
^ Lpage2_f lag. - aoutputMsg. Lpage2_f lag.: 

void notify!) 

if (Lpage2_flag_) { 
notifyObservers (INotif icationEvent (Lpage2_seqld. *this) ) : 
notifyObservers (INotif icationEvent (Lpage2_Id. *this) ) : 
notifyObservers (INotificationEvent(setresultlId. *this))i 
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} 

} 

IVSeque nce<myc lass_add_Lpage2*> Lpage2_seq() { 
return (Lpage2_); 

static INotif icationld Lpage2_seqld; 
royclass.add.O fi setLpage2_seq( IVSequence<myclass_add_Lpage2»> * 
aLpage2J { 

while( ILpage2_. isEmptyO ) { 
niyclass_acld_Lpage2» anElement = Lpage2_.f irstElementO 5 
Lpage2_.removeFirstl) ; 
delete anElement; 

) 

IVSequence<myclass_add_Lpage2*>:: Cursor cursor (aLpage2_) ; 
forCursor (cursor) 

Lpage2_ . addAsLast ( new myclass_add_Lpage2(*cursor. element!))) ; 
not ifyObser vers (INotificationEvent(Lpage2.seqId, *this)); 
return «this s 

} 

inyclass_add_Lpage2 Lpage2__ 0 { 
return (*(Lpage2_.firstElement())) ; 

static INotif icationld Lpage2_Id; 
myclass_add_0 & setLpage2__( myclass_add_Lpage2* aLpage2_) { 
while! !Lpage2_.isEmptyO) { 

myclass_add_Lpage2* anElement = Lpage2_.f irstElementO : 

Lpage2_.removeFirstl) ■, 

delete anElement; 

} 

Lpage2_.add(new myclass_add_Lpage2(«aLpage2J) ; 

not ifyObser vers (INotificationEvent(Lpage2_Id, «this)) ; 

return *this ; 

} 

unsigned short int resulti ( ) const 

^ return ( Lpage2_.firstElement() ->resultl() ) ; 

static INotif icationld setresultlld; 
royclass.add.O S setresultl ( const unsigned short intS 
aresultl ) 

Lpage2_ . f ir stElement ( ) ->setr esul 1 1 ( aresul 1 1) i 
notifyObservers (INotif icationEvent (setresultlld, »this) ) j 
return «this; 

} 

IVSequence<myclass_add_Lpage2*> Lpage2. ; 
IBoolean Lpage2_f lag_ ; 

>; 

inline IDACal lHandleS operator» (IDACallHandleS ch, myclass.add.OS d) 
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while (ch.notAtEndOfBufferl)) { 
whilef Id.Lpage2_. isEmpty 0 ) { 
myclass_add_Lpage2» anElement = d . Lpage2_ . f irstEleraent 0 1 
d .Lpage2_ .removeFirst 0 ; 
delete anElement; 

} 

myclass_add_Lpage2 tenpLpage2_ : 

while (ch . notAtEndOf Buf f erOrSeq (0 . 1. "0")) { 

ch » (myclass_add_Lpage2 S) tempLpage2_ ; 

d . Lpage2_ . addAsLast ( new myclass_add_Lpage2(teiiipLpage2J) ; 

d.Lpage2_flag_ = 1; 

if (Ich.urmarshalLPAGEO) { 
if (ch.notNullSepmentO) { 
throw IXDMQIMStxception( (const char «) 
IMessageTextdBO. IXDMQIMS.MSG.FILE) ), 
} else { 

throw IXDMOIHSExceptionl (const char «) 
IMessageTextdGl. IXDMQIMS.MSG.FILE) ), 

} 

} 

return ch ; 

} 

«endif 
MYCLASS.VBE 

//VBBeginpartlnfo: myclass 
//VBParent: IStandardNotifier 
//VBIncludes: "myclass.hpp" _MYCI.ASS.HPP_ 
//VBPartDataFile: myclass. vbb 
//VBConstructor: myclass 0 
//VBComposerlnfo: nonvisual 
//VBLibFile: idacom.lib 
//VB: idaims 10. lib 
//VBEvent: ready, "ready", readyld 

//VBAction: add, 'add method", void, add(myclass_add_I« inputMsg,myclass_add_0« 
outputMsg) 

//VBPreferredFeatures: add, enabledForNotification, this 

//VBEndPartlnfo: myclass 

//VBBeginPartlnfo: myclass.add.I 

//VBParent: IStandardNotifier 

//VBIncludes: "myclass. hpp" _MYCLASS_HPP_ 

//VBPartDataFile: myclass. vbb 

//VBConstructor: myclass.add.I 0 

//VBComposerlnfo: nonvisual 

//VBEvent: ready, "ready", readyld 

//VBAttribute: LpageLseq. "LpageLseq". IVSequence<myclass_add.Lpagel«>, 
IVSequence<myclass.add_Lpagel«> LpageLseq!) , myclass.add.I S setLpagel.seq( 
IVSequence<myclass_add_Lpagel»> » aLpagel.) , Lpagel.seqld 
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//VBAt tribute: Lpagel. . "Lpagel.", my c lass. add.L page 1, myclass.add.Lpagel 
Lpagel.J), myclass.add.I S setLpagel__( myclass.add.Lpagel* aLpagel.), 
Lpagel.Id 

//VBAttribute: opl_. "opr. unsigned short int. unsigned short int 

opK), myclass.add.I & setopKunsigned short int aopl) .setoplld 

//VBAttribute: op2_."op2", unsigned short int, unsigned short int 

op2() .myclass.add.I S setop2 (unsigned short int aop2) ,setop2Id 

/ / VBPref erredFeatures : Lpagel.seq, Lpagel., opl., op2. this 

//VBEndPartlnfo: myclass.add.I 

// VBBegi nPartlnf o : myclass.add.Lpagel 

//VBParent: IStandardNotifier 

//VBIncludes: 'myclass.hpp' .MYCLASS.HPP. 

//VBPartDataFile: myclass.vbb 

//VBConstructor: myclass.add.LpagelO 

//VBComposerlnfo: nonvisual 

//VBEvent: ready, "ready", readyld 

//VBAction: operator- , Assigns 

myclass.add.Lpagel", myclass.add.LpagelS. operator* (const myclass.add.LpagelS 
aLpagel.) 

//VBAttribute: opL. "opl". unsigned short int, unsigned short int opK), 
myclass.add.Lpagel & setopKunsigned short int aopl) , setoplld 
//VBAttribute: op2_."op2\ unsigned short int, unsigned short int op2(), 
myclass.add.Lpagel S setop2 (unsigned short int aop2) ,setop2Id 
//VBPreferredFeatures; operator-, opl_, op2_, this 
//VBEndPartlnfo: myclass.add.Lpagel 
/ / V8Beg i nPar 1 1 nf o : myclass.addj 
//VBParent: IStandardNotifier 
//VBIncludes: "myclass.hpp" .MYCLASS.HPP. 
//VBPartDataFile: myclass.vbb 
//VBConstructor: myclass.add.O 0 
//VBComposerlnfo: nonvisual 
//VBEvent: ready, "ready", readyld 

//VBAttribute: Lpage2_seq. "Lpage2_seq". IVSequence<myclass_add_Lpage2»>, 
IVSequence<myclass_add_Lpage2«> Lpage2_seq() , myclass.add.O & setLpage2_seq( 
IVSequence<myclass_add_Lpage2«> * aLpage2_) , Lpage2_seqld 
//VBAttribute: Lpage2_, Lpage2_", myciass_add_Lpage2, myclass_add_Lpage2 
Lpage2_.(), myclass.add.O S setLpage2..( myclass.add.Lpagel* aLpage2_), 
Lpaoe2_Id 

//VBAttribute: resultL.'resultl", unsigned short int, unsigned short int 

resultll), myclass.add.O S setresultKunsigned short int aresultl) .setresultlld 

//VBPreferredFeatures: Lpage2_seq, Lpage2_, resultL. this 

//VBEndPartlnfo: myclass.add.O 

//VBBegi npartlnfo: myclass_add_Lpage2 

//VBParent: IStandardNotifier 

//VBIncludes: "myclass.hpp" .MYCLASS.HPP. 

//VBPartDataFile: myclass.vbb 

//VBConstructor: myclass.add.Lpage2() 

//VBComposerlnfo: nonvisual 

//VBEvent: ready, "ready", readyld 
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//VBAction: operator^ "Assigns 

Diyclass.add_Lpage2',myclass_add.Lpage2&, operator^ (const myc lass. add. Lpage2S 
aLpage2_) 

//VBAttribute: resultl_,"resultr, unsigned short int. unsigned short int 
resultK) , myclass.add.Lpage2 S setresultKunsigned short int 
aresultl) . setresul t Ud 

//VBPreferredFeatures: operator=. resultL. this 
//VBEndPartlnf o : myclass_add_Lpage2 

HYCLASS.CPP 
// 

//PILE NAME: myclass.cpp 



#include "myclass.imd" 

INotif icationld myclass_add_I::Lpagel_seqId = "Lpagel.seqld" ; 
INotif icationld myclass_add_I::Lpagel_Id = "Lpagel.Id"; 
INotif icationld myclass.add.I:: setoplld = "setoplld" 5 
INotif icationld myclass_add_Lpagel:: setoplld = setoplld"; 
INotif icationld myclass.add.I: :setop2Id = "setop2Id' t 
INotif icationld myclass.add.Lpagel: :setop2Id = setop2Id' ; 
INotif icationld myclass_add_0::Lpage2_seqId = "Lpage2.seqld" i 
INot if icationld rayclass.add.O: :Lpage2.Id = 'Lpage2.Id' ; 
INotif icationld rayclass.add.O: :setresultlld = 'setresul t lid"; 
INot if icationld myclass_add_Lpage2::setresultlId = "setresultlld" ; . 



